home *** CD-ROM | disk | FTP | other *** search
/ Game Classics 18 / Game Classics 18 .iso / CARD / ANIBJ / ANIBJ.EXE / 0 / RCDATA / TRULESFRM / TRULESFRM.txt
Text File  |  1997-04-23  |  11KB  |  499 lines
  1. object RulesFrm: TRulesFrm
  2.   Left = 200
  3.   Top = 99
  4.   HelpContext = 41020
  5.   BorderIcons = []
  6.   BorderStyle = bsSingle
  7.   Caption = 'House Rules'
  8.   ClientHeight = 430
  9.   ClientWidth = 599
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   PixelsPerInch = 96
  15.   Position = poScreenCenter
  16.   OnActivate = FormActivate
  17.   TextHeight = 16
  18.   object Label1: TLabel
  19.     Left = 8
  20.     Top = 8
  21.     Width = 585
  22.     Height = 49
  23.     AutoSize = False
  24.     Caption = 
  25.       'Click the buttons below to alter the house rules for the upcomin' +
  26.       'g game.  This allows you to play with rules exactly like those p' +
  27.       'layed at your favorite casino or according to the rules played a' +
  28.       't home games with friends.'
  29.     Font.Color = clBlack
  30.     Font.Height = -11
  31.     Font.Name = 'MS Sans Serif'
  32.     Font.Style = []
  33.     ParentFont = False
  34.   end
  35.   object Panel1: TPanel
  36.     Left = 7
  37.     Top = 63
  38.     Width = 185
  39.     Height = 138
  40.     Font.Color = clBlack
  41.     Font.Height = -13
  42.     Font.Name = 'MS Sans Serif'
  43.     Font.Style = []
  44.     ParentFont = False
  45.     TabOrder = 0
  46.     object Label2: TLabel
  47.       Left = 1
  48.       Top = 1
  49.       Width = 183
  50.       Height = 16
  51.       Align = alTop
  52.       Alignment = taCenter
  53.       Caption = 'Doubling Down'
  54.       Font.Color = clBlack
  55.       Font.Height = -13
  56.       Font.Name = 'MS Sans Serif'
  57.       Font.Style = [fsBold]
  58.       ParentFont = False
  59.     end
  60.     object BitBtn1: TBitBtn
  61.       Left = 8
  62.       Top = 106
  63.       Width = 169
  64.       Height = 25
  65.       HelpContext = 41020
  66.       Caption = 'Help'
  67.       TabOrder = 0
  68.       Kind = bkHelp
  69.     end
  70.     object Button1: TButton
  71.       Left = 8
  72.       Top = 32
  73.       Width = 169
  74.       Height = 25
  75.       HelpContext = 41020
  76.       Caption = 'Double on 9, 10, or 11 only'
  77.       Font.Color = clBlack
  78.       Font.Height = -11
  79.       Font.Name = 'MS Sans Serif'
  80.       Font.Style = []
  81.       ParentFont = False
  82.       TabOrder = 1
  83.       OnClick = Button1Click
  84.     end
  85.     object Button2: TButton
  86.       Left = 8
  87.       Top = 64
  88.       Width = 169
  89.       Height = 25
  90.       HelpContext = 41020
  91.       Caption = 'No Doubling after Splitting'
  92.       Font.Color = clBlack
  93.       Font.Height = -11
  94.       Font.Name = 'MS Sans Serif'
  95.       Font.Style = []
  96.       ParentFont = False
  97.       TabOrder = 2
  98.       OnClick = Button2Click
  99.     end
  100.   end
  101.   object Panel2: TPanel
  102.     Left = 207
  103.     Top = 63
  104.     Width = 185
  105.     Height = 138
  106.     Font.Color = clBlack
  107.     Font.Height = -13
  108.     Font.Name = 'MS Sans Serif'
  109.     Font.Style = []
  110.     ParentFont = False
  111.     TabOrder = 1
  112.     object Label3: TLabel
  113.       Left = 1
  114.       Top = 1
  115.       Width = 183
  116.       Height = 16
  117.       Align = alTop
  118.       Alignment = taCenter
  119.       Caption = 'Splitting Pairs'
  120.       Font.Color = clBlack
  121.       Font.Height = -13
  122.       Font.Name = 'MS Sans Serif'
  123.       Font.Style = [fsBold]
  124.       ParentFont = False
  125.     end
  126.     object BitBtn2: TBitBtn
  127.       Left = 8
  128.       Top = 106
  129.       Width = 169
  130.       Height = 25
  131.       HelpContext = 41020
  132.       Caption = 'Help'
  133.       TabOrder = 0
  134.       Kind = bkHelp
  135.     end
  136.     object Button3: TButton
  137.       Left = 8
  138.       Top = 32
  139.       Width = 169
  140.       Height = 25
  141.       HelpContext = 41020
  142.       Caption = 'Split Aces get only one card'
  143.       Font.Color = clBlack
  144.       Font.Height = -11
  145.       Font.Name = 'MS Sans Serif'
  146.       Font.Style = []
  147.       ParentFont = False
  148.       TabOrder = 1
  149.       OnClick = Button3Click
  150.     end
  151.     object Button4: TButton
  152.       Left = 8
  153.       Top = 64
  154.       Width = 169
  155.       Height = 25
  156.       HelpContext = 41020
  157.       Caption = 'Split any Face Cards (or 10)'
  158.       Font.Color = clBlack
  159.       Font.Height = -11
  160.       Font.Name = 'MS Sans Serif'
  161.       Font.Style = []
  162.       ParentFont = False
  163.       TabOrder = 2
  164.       OnClick = Button4Click
  165.     end
  166.   end
  167.   object Panel3: TPanel
  168.     Left = 407
  169.     Top = 63
  170.     Width = 185
  171.     Height = 138
  172.     Font.Color = clBlack
  173.     Font.Height = -13
  174.     Font.Name = 'MS Sans Serif'
  175.     Font.Style = []
  176.     ParentFont = False
  177.     TabOrder = 2
  178.     object Label4: TLabel
  179.       Left = 1
  180.       Top = 1
  181.       Width = 183
  182.       Height = 16
  183.       Align = alTop
  184.       Alignment = taCenter
  185.       Caption = 'Insurance'
  186.       Font.Color = clBlack
  187.       Font.Height = -13
  188.       Font.Name = 'MS Sans Serif'
  189.       Font.Style = [fsBold]
  190.       ParentFont = False
  191.     end
  192.     object BitBtn3: TBitBtn
  193.       Left = 8
  194.       Top = 106
  195.       Width = 169
  196.       Height = 25
  197.       HelpContext = 41020
  198.       Caption = 'Help'
  199.       TabOrder = 0
  200.       Kind = bkHelp
  201.     end
  202.     object Button5: TButton
  203.       Left = 8
  204.       Top = 32
  205.       Width = 169
  206.       Height = 25
  207.       HelpContext = 41020
  208.       Caption = 'Pays 2-1'
  209.       Font.Color = clBlack
  210.       Font.Height = -11
  211.       Font.Name = 'MS Sans Serif'
  212.       Font.Style = []
  213.       ParentFont = False
  214.       TabOrder = 1
  215.       OnClick = Button5Click
  216.     end
  217.     object Button6: TButton
  218.       Left = 8
  219.       Top = 64
  220.       Width = 169
  221.       Height = 25
  222.       HelpContext = 41020
  223.       Caption = 'Bet up to 1/2 of table bet'
  224.       Font.Color = clBlack
  225.       Font.Height = -11
  226.       Font.Name = 'MS Sans Serif'
  227.       Font.Style = []
  228.       ParentFont = False
  229.       TabOrder = 2
  230.       OnClick = Button6Click
  231.     end
  232.   end
  233.   object Panel4: TPanel
  234.     Left = 7
  235.     Top = 207
  236.     Width = 185
  237.     Height = 138
  238.     Font.Color = clBlack
  239.     Font.Height = -13
  240.     Font.Name = 'MS Sans Serif'
  241.     Font.Style = []
  242.     ParentFont = False
  243.     TabOrder = 3
  244.     object Label5: TLabel
  245.       Left = 1
  246.       Top = 1
  247.       Width = 183
  248.       Height = 16
  249.       Align = alTop
  250.       Alignment = taCenter
  251.       Caption = 'Miscellaneous'
  252.       Font.Color = clBlack
  253.       Font.Height = -13
  254.       Font.Name = 'MS Sans Serif'
  255.       Font.Style = [fsBold]
  256.       ParentFont = False
  257.     end
  258.     object BitBtn4: TBitBtn
  259.       Left = 8
  260.       Top = 106
  261.       Width = 169
  262.       Height = 25
  263.       HelpContext = 41020
  264.       Caption = 'Help'
  265.       TabOrder = 0
  266.       Kind = bkHelp
  267.     end
  268.     object Button7: TButton
  269.       Left = 8
  270.       Top = 32
  271.       Width = 169
  272.       Height = 25
  273.       HelpContext = 41020
  274.       Caption = 'No Surrender'
  275.       Font.Color = clBlack
  276.       Font.Height = -11
  277.       Font.Name = 'MS Sans Serif'
  278.       Font.Style = []
  279.       ParentFont = False
  280.       TabOrder = 1
  281.       OnClick = Button7Click
  282.     end
  283.     object Button8: TButton
  284.       Left = 8
  285.       Top = 64
  286.       Width = 169
  287.       Height = 25
  288.       HelpContext = 41020
  289.       Caption = 'Dealer hits soft 17s'
  290.       Font.Color = clBlack
  291.       Font.Height = -11
  292.       Font.Name = 'MS Sans Serif'
  293.       Font.Style = []
  294.       ParentFont = False
  295.       TabOrder = 2
  296.       OnClick = Button8Click
  297.     end
  298.   end
  299.   object Panel5: TPanel
  300.     Left = 207
  301.     Top = 207
  302.     Width = 185
  303.     Height = 170
  304.     Font.Color = clBlack
  305.     Font.Height = -13
  306.     Font.Name = 'MS Sans Serif'
  307.     Font.Style = []
  308.     ParentFont = False
  309.     TabOrder = 4
  310.     object Label6: TLabel
  311.       Left = 1
  312.       Top = 1
  313.       Width = 183
  314.       Height = 16
  315.       Align = alTop
  316.       Alignment = taCenter
  317.       Caption = 'Miscellaneous'
  318.       Font.Color = clBlack
  319.       Font.Height = -13
  320.       Font.Name = 'MS Sans Serif'
  321.       Font.Style = [fsBold]
  322.       ParentFont = False
  323.     end
  324.     object BitBtn5: TBitBtn
  325.       Left = 8
  326.       Top = 138
  327.       Width = 169
  328.       Height = 25
  329.       HelpContext = 41020
  330.       Caption = 'Help'
  331.       TabOrder = 0
  332.       Kind = bkHelp
  333.     end
  334.     object Button9: TButton
  335.       Left = 8
  336.       Top = 32
  337.       Width = 169
  338.       Height = 25
  339.       HelpContext = 41020
  340.       Caption = 'Table Limit $5 to $500'
  341.       Font.Color = clBlack
  342.       Font.Height = -11
  343.       Font.Name = 'MS Sans Serif'
  344.       Font.Style = []
  345.       ParentFont = False
  346.       TabOrder = 1
  347.       OnClick = Button9Click
  348.     end
  349.     object Button13: TButton
  350.       Left = 8
  351.       Top = 64
  352.       Width = 169
  353.       Height = 25
  354.       HelpContext = 41020
  355.       Caption = 'Four-Deck Shoe'
  356.       Font.Color = clBlack
  357.       Font.Height = -11
  358.       Font.Name = 'MS Sans Serif'
  359.       Font.Style = []
  360.       ParentFont = False
  361.       TabOrder = 2
  362.       OnClick = Button13Click
  363.     end
  364.     object Button14: TButton
  365.       Left = 8
  366.       Top = 96
  367.       Width = 169
  368.       Height = 25
  369.       HelpContext = 41020
  370.       Caption = 'Players'#39' Cards Face-Up'
  371.       Font.Color = clBlack
  372.       Font.Height = -11
  373.       Font.Name = 'MS Sans Serif'
  374.       Font.Style = []
  375.       ParentFont = False
  376.       TabOrder = 3
  377.       OnClick = Button14Click
  378.     end
  379.   end
  380.   object Panel6: TPanel
  381.     Left = 407
  382.     Top = 207
  383.     Width = 185
  384.     Height = 138
  385.     Font.Color = clBlack
  386.     Font.Height = -13
  387.     Font.Name = 'MS Sans Serif'
  388.     Font.Style = []
  389.     ParentFont = False
  390.     TabOrder = 5
  391.     object Label7: TLabel
  392.       Left = 1
  393.       Top = 1
  394.       Width = 183
  395.       Height = 16
  396.       Align = alTop
  397.       Alignment = taCenter
  398.       Caption = 'Payoffs'
  399.       Font.Color = clBlack
  400.       Font.Height = -13
  401.       Font.Name = 'MS Sans Serif'
  402.       Font.Style = [fsBold]
  403.       ParentFont = False
  404.     end
  405.     object BitBtn6: TBitBtn
  406.       Left = 8
  407.       Top = 106
  408.       Width = 169
  409.       Height = 25
  410.       HelpContext = 41020
  411.       Caption = 'Help'
  412.       TabOrder = 0
  413.       Kind = bkHelp
  414.     end
  415.     object Button10: TButton
  416.       Left = 8
  417.       Top = 32
  418.       Width = 169
  419.       Height = 25
  420.       HelpContext = 41020
  421.       Caption = 'Blackjack pays 3-2'
  422.       Font.Color = clBlack
  423.       Font.Height = -11
  424.       Font.Name = 'MS Sans Serif'
  425.       Font.Style = []
  426.       ParentFont = False
  427.       TabOrder = 1
  428.       OnClick = Button10Click
  429.     end
  430.     object Button11: TButton
  431.       Left = 8
  432.       Top = 64
  433.       Width = 169
  434.       Height = 25
  435.       HelpContext = 41020
  436.       Caption = 'No Special Payoffs'
  437.       Font.Color = clBlack
  438.       Font.Height = -11
  439.       Font.Name = 'MS Sans Serif'
  440.       Font.Style = []
  441.       ParentFont = False
  442.       TabOrder = 2
  443.       OnClick = Button11Click
  444.     end
  445.   end
  446.   object Panel7: TPanel
  447.     Left = 0
  448.     Top = 384
  449.     Width = 599
  450.     Height = 46
  451.     Align = alBottom
  452.     TabOrder = 6
  453.     object BitBtn7: TBitBtn
  454.       Left = 16
  455.       Top = 8
  456.       Width = 169
  457.       Height = 33
  458.       HelpContext = 41020
  459.       Font.Color = clBlack
  460.       Font.Height = -13
  461.       Font.Name = 'MS Sans Serif'
  462.       Font.Style = []
  463.       ParentFont = False
  464.       TabOrder = 1
  465.       Kind = bkCancel
  466.     end
  467.     object BitBtn8: TBitBtn
  468.       Left = 416
  469.       Top = 8
  470.       Width = 169
  471.       Height = 33
  472.       HelpContext = 41020
  473.       Font.Color = clBlack
  474.       Font.Height = -13
  475.       Font.Name = 'MS Sans Serif'
  476.       Font.Style = []
  477.       ParentFont = False
  478.       TabOrder = 0
  479.       OnClick = BitBtn8Click
  480.       Kind = bkOK
  481.     end
  482.     object Button12: TButton
  483.       Left = 224
  484.       Top = 8
  485.       Width = 161
  486.       Height = 33
  487.       HelpContext = 41020
  488.       Caption = 'Use Standard Rules'
  489.       Font.Color = clBlack
  490.       Font.Height = -11
  491.       Font.Name = 'MS Sans Serif'
  492.       Font.Style = []
  493.       ParentFont = False
  494.       TabOrder = 2
  495.       OnClick = Button12Click
  496.     end
  497.   end
  498. end
  499.